inherited frmRel_TitCarga: TfrmRel_TitCarga
  Left = 176
  Top = 149
  Caption = 'Rel. de T'#237'tulos por Carga'
  ClientHeight = 296
  ClientWidth = 529
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pb: TGauge [0]
    Left = 0
    Top = 208
    Width = 529
    Height = 21
    Align = alBottom
    Color = clWhite
    ForeColor = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Progress = 0
    Visible = False
  end
  inherited Panel1: TPanel
    Width = 529
    Height = 102
    object Label1: TLabel
      Left = 9
      Top = 20
      Width = 66
      Height = 14
      Caption = 'Carga inicial'
    end
    object c_carga: TSpeedButton
      Left = 125
      Top = 18
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = c_cargaClick
    end
    object Label2: TLabel
      Left = 17
      Top = 56
      Width = 58
      Height = 14
      Caption = 'Carga final'
    end
    object btn: TSpeedButton
      Left = 125
      Top = 54
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = btnClick
    end
    object ed_carga: TEdit
      Left = 81
      Top = 18
      Width = 43
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 6
      TabOrder = 0
      OnEnter = ed_cargaEnter
      OnExit = ed_cargaExit
      OnKeyDown = ed_cargaKeyDown
      OnKeyPress = ed_cargaKeyPress
    end
    object edFin: TEdit
      Left = 81
      Top = 54
      Width = 43
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 6
      TabOrder = 1
      OnEnter = edFinEnter
      OnExit = edFinExit
      OnKeyDown = edFinKeyDown
      OnKeyPress = edFinKeyPress
    end
    object rgAgrup: TRadioGroup
      Left = 161
      Top = 11
      Width = 265
      Height = 70
      Caption = ' Agrupar por: '
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Clientes'
        'Pedido/Vcto'
        'Empresa'
        'T'#237'tulos')
      TabOrder = 2
    end
    object rgTipo: TRadioGroup
      Left = 429
      Top = 11
      Width = 85
      Height = 70
      Caption = 'Totais:'
      ItemIndex = 0
      Items.Strings = (
        's/ IPI'
        'c/ IPI')
      TabOrder = 3
      OnClick = rgTipoClick
    end
    object ckResumo: TCheckBox
      Left = 160
      Top = 82
      Width = 145
      Height = 17
      Caption = 'Imprime Resumo'
      TabOrder = 4
    end
  end
  inherited Panel2: TPanel
    Top = 229
    Width = 529
    inherited bimprimir: TFlatButton
      OnClick = bimprimirClick
    end
    inherited btncancelar: TFlatButton
      OnClick = btncancelarClick
    end
  end
  inherited sb: TStatusBar
    Top = 277
    Width = 529
  end
  inherited Panel3: TPanel
    Width = 529
    inherited ListaEmp: TCheckListBox
      OnExit = ListaEmpExit
    end
  end
  inherited RDP: TRDprint
    OnNewPage = RDPNewPage
  end
  object CDS: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 324
    Top = 30
    object CDSEmp: TStringField
      FieldName = 'Emp'
    end
    object CDSTit: TStringField
      FieldName = 'Tit'
    end
    object CDSTd: TStringField
      FieldName = 'Td'
    end
    object CDSCliente: TStringField
      FieldName = 'Cliente'
      Size = 50
    end
    object CDSNomeCliente: TStringField
      FieldName = 'NomeCliente'
      Size = 40
    end
    object CDSLocal: TStringField
      FieldName = 'Local'
    end
    object CDSValor: TFloatField
      FieldName = 'Valor'
    end
    object CDSSaldo: TFloatField
      FieldName = 'Saldo'
    end
    object CDSNF: TStringField
      FieldName = 'NF'
    end
    object CDSJuros: TFloatField
      FieldName = 'Juros'
    end
    object CDSDesc: TFloatField
      FieldName = 'Desc'
    end
    object CDSEmissao: TStringField
      FieldName = 'Emissao'
    end
    object CDSVcto: TDateField
      FieldName = 'Vcto'
    end
    object CDSPgto: TStringField
      FieldName = 'Pgto'
    end
    object CDSNum_bck: TStringField
      FieldName = 'Num_bck'
    end
    object CDSCidade: TStringField
      FieldName = 'Cidade'
      Size = 50
    end
    object CDSRepres: TStringField
      FieldName = 'Repres'
      Size = 50
    end
    object CDSIPI: TFloatField
      FieldName = 'IPI'
    end
    object CDSDinheiro: TFloatField
      FieldName = 'Dinheiro'
    end
    object CDSCarga: TStringField
      FieldName = 'Carga'
    end
  end
  object CDSTpB: TRxMemoryData
    FieldDefs = <
      item
        Name = 'Tipo'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Valor'
        DataType = ftFloat
      end
      item
        Name = 'Tit'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Ent'
        DataType = ftString
        Size = 20
      end>
    Left = 248
    Top = 64
    object CDSTpBTipo: TStringField
      FieldName = 'Tipo'
    end
    object CDSTpBValor: TFloatField
      FieldName = 'Valor'
    end
    object CDSTpBTit: TStringField
      FieldName = 'Tit'
    end
    object CDSTpBEnt: TStringField
      FieldName = 'Ent'
    end
    object CDSTpBPed: TStringField
      FieldName = 'Ped'
    end
  end
  object CDSHist: TRxMemoryData
    FieldDefs = <
      item
        Name = 'Codigo'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Valor'
        DataType = ftFloat
      end
      item
        Name = 'Tit'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Ent'
        DataType = ftString
        Size = 20
      end>
    Left = 288
    Top = 64
    object CDSHistCodigo: TStringField
      FieldName = 'Codigo'
    end
    object CDSHistValor: TFloatField
      FieldName = 'Valor'
    end
    object CDSHistTit: TStringField
      FieldName = 'Tit'
    end
    object CDSHistEnt: TStringField
      FieldName = 'Ent'
    end
    object CDSHistPed: TStringField
      FieldName = 'Ped'
    end
  end
  object TotHist: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 248
    Top = 104
    object TotHistHist: TStringField
      FieldName = 'Hist'
    end
    object TotHistValor: TFloatField
      FieldName = 'Valor'
    end
  end
  object TotBax: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 288
    Top = 106
    object TotBaxTipo: TStringField
      FieldName = 'Tipo'
    end
    object TotBaxValor: TFloatField
      FieldName = 'Valor'
    end
  end
end
